home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / vpi1manl.zip / CHARITY.ZIP / SOLREPT.PRG < prev    next >
Text File  |  1991-12-29  |  962b  |  29 lines
  1. ***************************************************************************
  2. **  SOLREPT.PRG
  3. **  (C) Copyright 1990, Sub Rosa Publishing Inc.
  4. **  A demonstration program provided to VP-Info users.
  5. **  This program may be copied freely. If it is used in commercial code,
  6. **  please credit the source, Sub Rosa Publishing Inc.
  7. **
  8. **  SOLREPT does nothing more than run a report set up in the menu program.
  9. **
  10. **  SOLREPT is compatible with all current versions of VP-Info.
  11. **
  12. **  Sid Bursten and Bernie Melman
  13. **  May 9,1990
  14. ***************************************************************************
  15. ON escape                  ;this code is executed when <Esc> is pressed
  16.    WINDOW
  17.    CANCEL
  18. ENDON
  19. USE donate index don_temp
  20. USE#2 donor index don_code
  21. USE#3 solicit index sol_code
  22. SET relation on donor to 2
  23. SET relation on solicitor to 3
  24. REPORT solrept
  25. CLOSE all
  26. CHAIN donmenu
  27. *
  28. *                     *** end of program SOLREPT.prg ***
  29.